home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / VB98 / TEMPLATE / PROJECTS / WEBCLASS.DSR < prev    next >
Encoding:
Text File  |  1998-06-18  |  1.2 KB  |  42 lines
  1. VERSION 5.00
  2. Begin {17016CEE-E118-11D0-94B8-00A0C91110ED} WebClass1 
  3.    ClientHeight    =   5445
  4.    ClientLeft      =   750
  5.    ClientTop       =   1425
  6.    ClientWidth     =   7320
  7.    _ExtentX        =   9657
  8.    _ExtentY        =   8440
  9.    MajorVersion    =   0
  10.    MinorVersion    =   7
  11.    StateManagementType=   1
  12.    ASPFileName     =   ""
  13.    DIID_WebClass   =   "{12CBA1F6-9056-11D1-8544-00A024A55AB0}"
  14.    DIID_WebClassEvents=   "{12CBA1F5-9056-11D1-8544-00A024A55AB0}"
  15.    TypeInfoCookie  =   0
  16.    BeginProperty WebItems {193556CD-4486-11D1-9C70-00C04FB987DF} 
  17.       WebItemCount    =   0
  18.    EndProperty
  19.    NameInURL       =   "WebClass1"
  20. End
  21. Attribute VB_Name = "WebClass1"
  22. Attribute VB_GlobalNameSpace = False
  23. Attribute VB_Creatable = True
  24. Attribute VB_PredeclaredId = False
  25. Attribute VB_Exposed = True
  26. Option Explicit
  27. Option Compare Text
  28.  
  29. Private Sub WebClass_Start()
  30.     
  31.     'Write a reply to the user
  32.     With Response
  33.         .Write "<html>"
  34.         .Write "<body>"
  35.         .Write "<h1><font face=""Arial"">WebClass1's Starting Page</font></h1>"
  36.         .Write "<p>This response was created in the Start event of WebClass1.</p>"
  37.         .Write "</body>"
  38.         .Write "</html>"
  39.     End With
  40.  
  41. End Sub
  42.